/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / comint / telnet.elc.z / telnet.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 37 3a 34 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:41 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 6f 6d 69 |s-20.3/l|isp/comi|
|000000a0| 6e 74 2f 74 65 6c 6e 65 | 74 2e 65 6c 0a 3b 3b 3b |nt/telne|t.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 74 65 6c 6e 65 74 | (error |"`telnet|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c2 c3 c4 c5 c6 | c1 25 88 c7 c8 21 ac 83 |.!......|.%...!..|
|00000270| c9 16 08 c8 0e 5c 6e 42 | 16 5c 6e c7 cb 21 ac 83 |.....\nB|.\n..!..|
|00000280| c4 16 0b cb 0e 5c 6e 42 | 16 5c 6e c7 cc 21 ac 83 |.....\nB|.\n..!..|
|00000290| cd 16 0c cc 0e 5c 6e 42 | 16 5c 6e c7 ce 21 ac 84 |.....\nB|.\n..!..|
|000002a0| 0e 0c 16 0e ce 0e 5c 6e | 42 16 5c 6e c7 cf 21 ac |......\n|B.\n..!.|
|000002b0| 83 c4 16 0f cf 0e 5c 6e | 42 16 5c 6e d0 c7 d1 21 |......\n|B.\n...!|
|000002c0| ac 83 d2 16 11 d1 0e 5c | 6e 42 16 5c 6e d3 d1 d4 |.......\|nB.\n...|
|000002d0| d5 23 88 d1 21 88 d0 c7 | d6 21 ac 83 d7 16 16 d6 |.#..!...|.!......|
|000002e0| 0e 5c 6e 42 16 5c 6e d3 | d6 d4 d8 23 88 d6 21 87 |.\nB.\n.|...#..!.|
|000002f0| 22 20 5b 72 65 71 75 69 | 72 65 20 63 6f 6d 69 6e |" [requi|re comin|
|00000300| 74 20 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |t custom|-declare|
|00000310| 2d 67 72 6f 75 70 20 74 | 65 6c 6e 65 74 20 6e 69 |-group t|elnet ni|
|00000320| 6c 20 22 52 75 6e 20 61 | 20 74 65 6c 6e 65 74 20 |l "Run a| telnet |
|00000330| 73 65 73 73 69 6f 6e 20 | 66 72 6f 6d 20 77 69 74 |session |from wit|
|00000340| 68 69 6e 20 61 6e 20 45 | 6d 61 63 73 20 62 75 66 |hin an E|macs buf|
|00000350| 66 65 72 2e 22 20 3a 67 | 72 6f 75 70 20 62 6f 75 |fer." :g|roup bou|
|00000360| 6e 64 70 20 74 65 6c 6e | 65 74 2d 6e 65 77 2d 6c |ndp teln|et-new-l|
|00000370| 69 6e 65 20 22 0d 22 20 | 63 75 72 72 65 6e 74 2d |ine "." |current-|
|00000380| 6c 6f 61 64 2d 6c 69 73 | 74 20 74 65 6c 6e 65 74 |load-lis|t telnet|
|00000390| 2d 6d 6f 64 65 2d 6d 61 | 70 20 74 65 6c 6e 65 74 |-mode-ma|p telnet|
|000003a0| 2d 64 65 66 61 75 6c 74 | 2d 70 72 6f 6d 70 74 2d |-default|-prompt-|
|000003b0| 70 61 74 74 65 72 6e 20 | 22 5e 5b 5e 23 24 25 3e |pattern |"^[^#$%>|
|000003c0| 5c 6e 5d 2a 5b 23 24 25 | 3e 5d 20 2a 22 20 74 65 |\n]*[#$%|>] *" te|
|000003d0| 6c 6e 65 74 2d 70 72 6f | 6d 70 74 2d 70 61 74 74 |lnet-pro|mpt-patt|
|000003e0| 65 72 6e 20 74 65 6c 6e | 65 74 2d 72 65 70 6c 61 |ern teln|et-repla|
|000003f0| 63 65 2d 63 2d 67 20 6d | 61 6b 65 2d 76 61 72 69 |ce-c-g m|ake-vari|
|00000400| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|00000410| 6c 20 74 65 6c 6e 65 74 | 2d 72 65 6d 6f 74 65 2d |l telnet|-remote-|
|00000420| 65 63 68 6f 65 73 20 74 | 20 70 75 74 20 76 61 72 |echoes t| put var|
|00000430| 69 61 62 6c 65 2d 64 6f | 63 75 6d 65 6e 74 61 74 |iable-do|cumentat|
|00000440| 69 6f 6e 20 22 54 72 75 | 65 20 69 66 20 74 68 65 |ion "Tru|e if the|
|00000450| 20 74 65 6c 6e 65 74 20 | 70 72 6f 63 65 73 73 20 | telnet |process |
|00000460| 77 69 6c 6c 20 65 63 68 | 6f 20 69 6e 70 75 74 2e |will ech|o input.|
|00000470| 22 20 74 65 6c 6e 65 74 | 2d 69 6e 74 65 72 72 75 |" telnet|-interru|
|00000480| 70 74 2d 73 74 72 69 6e | 67 20 22 03 22 20 22 53 |pt-strin|g "." "S|
|00000490| 74 72 69 6e 67 20 73 65 | 6e 74 20 62 79 20 43 2d |tring se|nt by C-|
|000004a0| 63 2e 22 5d 20 36 29 0a | 23 40 39 35 20 4e 75 6d |c."] 6).|#@95 Num|
|000004b0| 62 65 72 20 6f 66 20 6f | 75 74 70 75 74 20 73 74 |ber of o|utput st|
|000004c0| 72 69 6e 67 73 20 72 65 | 61 64 20 66 72 6f 6d 20 |rings re|ad from |
|000004d0| 74 68 65 20 74 65 6c 6e | 65 74 20 70 72 6f 63 65 |the teln|et proce|
|000004e0| 73 73 0a 77 68 69 6c 65 | 20 6c 6f 6f 6b 69 6e 67 |ss.while| looking|
|000004f0| 20 66 6f 72 20 74 68 65 | 20 69 6e 69 74 69 61 6c | for the| initial|
|00000500| 20 70 61 73 73 77 6f 72 | 64 2e 1f 0a 28 64 65 66 | passwor|d...(def|
|00000510| 76 61 72 20 74 65 6c 6e | 65 74 2d 63 6f 75 6e 74 |var teln|et-count|
|00000520| 20 30 20 28 23 24 20 2e | 20 31 31 39 37 29 29 0a | 0 (#$ .| 1197)).|
|00000530| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|00000540| 76 61 72 69 61 62 6c 65 | 20 27 74 65 6c 6e 65 74 |variable| 'telnet|
|00000550| 2d 70 72 6f 67 72 61 6d | 20 27 22 74 65 6c 6e 65 |-program| '"telne|
|00000560| 74 22 20 22 2a 50 72 6f | 67 72 61 6d 20 74 6f 20 |t" "*Pro|gram to |
|00000570| 72 75 6e 20 74 6f 20 6f | 70 65 6e 20 61 20 74 65 |run to o|pen a te|
|00000580| 6c 6e 65 74 20 63 6f 6e | 6e 65 63 74 69 6f 6e 2e |lnet con|nection.|
|00000590| 22 20 3a 74 79 70 65 20 | 27 73 74 72 69 6e 67 20 |" :type |'string |
|000005a0| 3a 67 72 6f 75 70 20 27 | 74 65 6c 6e 65 74 29 0a |:group '|telnet).|
|000005b0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|000005c0| 76 61 72 69 61 62 6c 65 | 20 27 72 73 68 2d 65 61 |variable| 'rsh-ea|
|000005d0| 74 2d 70 61 73 73 77 6f | 72 64 2d 73 74 72 69 6e |t-passwo|rd-strin|
|000005e0| 67 20 27 6e 69 6c 20 22 | 4e 6f 6e 2d 6e 69 6c 20 |g 'nil "|Non-nil |
|000005f0| 6d 65 61 6e 73 20 72 73 | 68 20 77 69 6c 6c 20 6c |means rs|h will l|
|00000600| 6f 6f 6b 20 66 6f 72 20 | 61 20 73 74 72 69 6e 67 |ook for |a string|
|00000610| 20 6d 61 74 63 68 69 6e | 67 20 61 20 70 61 73 73 | matchin|g a pass|
|00000620| 77 6f 72 64 20 70 72 6f | 6d 70 74 2e 22 20 3a 74 |word pro|mpt." :t|
|00000630| 79 70 65 20 27 62 6f 6f | 6c 65 61 6e 20 3a 67 72 |ype 'boo|lean :gr|
|00000640| 6f 75 70 20 27 74 65 6c | 6e 65 74 29 0a 23 40 31 |oup 'tel|net).#@1|
|00000650| 34 37 20 49 6e 69 74 69 | 61 6c 20 76 61 6c 75 65 |47 Initi|al value|
|00000660| 20 6f 66 20 60 74 65 6c | 6e 65 74 2d 63 6f 75 6e | of `tel|net-coun|
|00000670| 74 27 2e 20 20 53 68 6f | 75 6c 64 20 62 65 20 73 |t'.  Sho|uld be s|
|00000680| 65 74 20 74 6f 20 74 68 | 65 20 6e 65 67 61 74 69 |et to th|e negati|
|00000690| 76 65 20 6f 66 20 74 68 | 65 0a 6e 75 6d 62 65 72 |ve of th|e.number|
|000006a0| 20 6f 66 20 74 65 72 6d | 69 6e 61 6c 20 77 72 69 | of term|inal wri|
|000006b0| 74 65 73 20 74 65 6c 6e | 65 74 20 77 69 6c 6c 20 |tes teln|et will |
|000006c0| 6d 61 6b 65 20 73 65 74 | 74 69 6e 67 20 75 70 20 |make set|ting up |
|000006d0| 74 68 65 20 68 6f 73 74 | 20 63 6f 6e 6e 65 63 74 |the host| connect|
|000006e0| 69 6f 6e 2e 1f 0a 28 64 | 65 66 76 61 72 20 74 65 |ion...(d|efvar te|
|000006f0| 6c 6e 65 74 2d 69 6e 69 | 74 69 61 6c 2d 63 6f 75 |lnet-ini|tial-cou|
|00000700| 6e 74 20 2d 37 35 20 28 | 23 24 20 2e 20 31 36 31 |nt -75 (|#$ . 161|
|00000710| 39 29 29 0a 23 40 32 33 | 37 20 4d 61 78 69 6d 75 |9)).#@23|7 Maximu|
|00000720| 6d 20 76 61 6c 75 65 20 | 60 74 65 6c 6e 65 74 2d |m value |`telnet-|
|00000730| 63 6f 75 6e 74 27 20 63 | 61 6e 20 68 61 76 65 2e |count' c|an have.|
|00000740| 0a 41 66 74 65 72 20 74 | 68 69 73 20 6d 61 6e 79 |.After t|his many|
|00000750| 20 70 61 73 73 65 73 2c | 20 77 65 20 73 74 6f 70 | passes,| we stop|
|00000760| 20 6c 6f 6f 6b 69 6e 67 | 20 66 6f 72 20 69 6e 69 | looking| for ini|
|00000770| 74 69 61 6c 20 73 65 74 | 75 70 20 64 61 74 61 2e |tial set|up data.|
|00000780| 0a 53 68 6f 75 6c 64 20 | 62 65 20 73 65 74 20 74 |.Should |be set t|
|00000790| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |o the nu|mber of |
|000007a0| 74 65 72 6d 69 6e 61 6c | 20 77 72 69 74 65 73 20 |terminal| writes |
|000007b0| 74 65 6c 6e 65 74 20 77 | 69 6c 6c 20 6d 61 6b 65 |telnet w|ill make|
|000007c0| 0a 72 65 6a 65 63 74 69 | 6e 67 20 6f 6e 65 20 6c |.rejecti|ng one l|
|000007d0| 6f 67 69 6e 20 61 6e 64 | 20 70 72 6f 6d 70 74 69 |ogin and| prompti|
|000007e0| 6e 67 20 61 67 61 69 6e | 20 66 6f 72 20 61 20 75 |ng again| for a u|
|000007f0| 73 65 72 6e 61 6d 65 20 | 61 6e 64 20 70 61 73 73 |sername |and pass|
|00000800| 77 6f 72 64 2e 1f 0a 28 | 64 65 66 76 61 72 20 74 |word...(|defvar t|
|00000810| 65 6c 6e 65 74 2d 6d 61 | 78 69 6d 75 6d 2d 63 6f |elnet-ma|ximum-co|
|00000820| 75 6e 74 20 34 20 28 23 | 24 20 2e 20 31 38 31 38 |unt 4 (#|$ . 1818|
|00000830| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 65 |)).(defa|lias 'te|
|00000840| 6c 6e 65 74 2d 69 6e 74 | 65 72 72 75 70 74 2d 73 |lnet-int|errupt-s|
|00000850| 75 62 6a 6f 62 20 23 5b | 6e 69 6c 20 22 c0 c1 5c |ubjob #[|nil "..\|
|00000860| 6e 5c 22 87 22 20 5b 70 | 72 6f 63 65 73 73 2d 73 |n\"." [p|rocess-s|
|00000870| 65 6e 64 2d 73 74 72 69 | 6e 67 20 6e 69 6c 20 74 |end-stri|ng nil t|
|00000880| 65 6c 6e 65 74 2d 69 6e | 74 65 72 72 75 70 74 2d |elnet-in|terrupt-|
|00000890| 73 74 72 69 6e 67 5d 20 | 33 20 6e 69 6c 20 6e 69 |string] |3 nil ni|
|000008a0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |l]).(def|alias 't|
|000008b0| 65 6c 6e 65 74 2d 63 2d | 7a 20 23 5b 6e 69 6c 20 |elnet-c-|z #[nil |
|000008c0| 22 c0 c1 c2 5c 22 87 22 | 20 5b 70 72 6f 63 65 73 |"...\"."| [proces|
|000008d0| 73 2d 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 6e 69 |s-send-s|tring ni|
|000008e0| 6c 20 22 1a 22 5d 20 33 | 20 6e 69 6c 20 6e 69 6c |l "."] 3| nil nil|
|000008f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 65 |]).(defa|lias 'te|
|00000900| 6c 6e 65 74 2d 73 65 6e | 64 2d 70 72 6f 63 65 73 |lnet-sen|d-proces|
|00000910| 73 2d 6e 65 78 74 2d 63 | 68 61 72 20 23 5b 6e 69 |s-next-c|har #[ni|
|00000920| 6c 20 22 c0 c1 c2 c3 1c | c5 20 c1 16 06 29 21 5c |l ".....|. ...)!\|
|00000930| 22 87 22 20 5b 70 72 6f | 63 65 73 73 2d 73 65 6e |"." [pro|cess-sen|
|00000940| 64 2d 73 74 72 69 6e 67 | 20 6e 69 6c 20 63 68 61 |d-string| nil cha|
|00000950| 72 2d 74 6f 2d 73 74 72 | 69 6e 67 20 74 20 69 6e |r-to-str|ing t in|
|00000960| 68 69 62 69 74 2d 71 75 | 69 74 20 72 65 61 64 2d |hibit-qu|it read-|
|00000970| 63 68 61 72 20 71 75 69 | 74 2d 66 6c 61 67 5d 20 |char qui|t-flag] |
|00000980| 35 20 6e 69 6c 20 6e 69 | 6c 5d 29 0a 28 62 79 74 |5 nil ni|l]).(byt|
|00000990| 65 2d 63 6f 64 65 20 22 | 08 ac a1 c1 20 10 c2 08 |e-code "|.... ...|
|000009a0| 0b 43 5c 22 88 c4 08 c5 | c6 23 88 c4 08 c7 c8 23 |.C\"....|.#.....#|
|000009b0| 88 c4 08 c9 ca 23 88 c4 | 08 cb cc 23 88 c1 87 22 |.....#..|...#..."|
|000009c0| 20 5b 74 65 6c 6e 65 74 | 2d 6d 6f 64 65 2d 6d 61 | [telnet|-mode-ma|
|000009d0| 70 20 6d 61 6b 65 2d 73 | 70 61 72 73 65 2d 6b 65 |p make-s|parse-ke|
|000009e0| 79 6d 61 70 20 73 65 74 | 2d 6b 65 79 6d 61 70 2d |ymap set|-keymap-|
|000009f0| 70 61 72 65 6e 74 73 20 | 63 6f 6d 69 6e 74 2d 6d |parents |comint-m|
|00000a00| 6f 64 65 2d 6d 61 70 20 | 64 65 66 69 6e 65 2d 6b |ode-map |define-k|
|00000a10| 65 79 20 22 0d 22 20 74 | 65 6c 6e 65 74 2d 73 65 |ey "." t|elnet-se|
|00000a20| 6e 64 2d 69 6e 70 75 74 | 20 22 03 11 22 20 74 65 |nd-input| ".." te|
|00000a30| 6c 6e 65 74 2d 73 65 6e | 64 2d 70 72 6f 63 65 73 |lnet-sen|d-proces|
|00000a40| 73 2d 6e 65 78 74 2d 63 | 68 61 72 20 22 03 03 22 |s-next-c|har ".."|
|00000a50| 20 74 65 6c 6e 65 74 2d | 69 6e 74 65 72 72 75 70 | telnet-|interrup|
|00000a60| 74 2d 73 75 62 6a 6f 62 | 20 22 03 1a 22 20 74 65 |t-subjob| ".." te|
|00000a70| 6c 6e 65 74 2d 63 2d 7a | 5d 20 34 29 0a 23 40 35 |lnet-c-z|] 4).#@5|
|00000a80| 35 20 54 72 69 65 73 20 | 74 6f 20 70 75 74 20 63 |5 Tries |to put c|
|00000a90| 6f 72 72 65 63 74 20 69 | 6e 69 74 69 61 6c 69 7a |orrect i|nitializ|
|00000aa0| 61 74 69 6f 6e 73 20 69 | 6e 2e 20 20 4e 65 65 64 |ations i|n.  Need|
|00000ab0| 73 20 77 6f 72 6b 2e 1f | 0a 28 64 65 66 61 6c 69 |s work..|.(defali|
|00000ac0| 61 73 20 27 74 65 6c 6e | 65 74 2d 63 68 65 63 6b |as 'teln|et-check|
|00000ad0| 2d 73 6f 66 74 77 61 72 | 65 2d 74 79 70 65 2d 69 |-softwar|e-type-i|
|00000ae0| 6e 69 74 69 61 6c 69 7a | 65 20 23 5b 28 73 74 72 |nitializ|e #[(str|
|00000af0| 69 6e 67 29 20 22 c0 19 | c2 c3 0c 5c 22 ab 88 0d |ing) "..|...\"...|
|00000b00| 16 06 c7 16 08 aa 9f c2 | c9 0c 5c 22 ab 85 ca 16 |........|..\"....|
|00000b10| 06 aa 94 c2 cb 0c 5c 22 | ab 85 cc 16 06 aa 89 c2 |......\"|........|
|00000b20| cd 0c 5c 22 ab 83 ce 16 | 0f 29 0e 06 89 16 10 87 |..\"....|.)......|
|00000b30| 22 20 5b 74 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |" [t cas|e-fold-s|
|00000b40| 65 61 72 63 68 20 73 74 | 72 69 6e 67 2d 6d 61 74 |earch st|ring-mat|
|00000b50| 63 68 20 22 75 6e 69 78 | 22 20 73 74 72 69 6e 67 |ch "unix|" string|
|00000b60| 20 73 68 65 6c 6c 2d 70 | 72 6f 6d 70 74 2d 70 61 | shell-p|rompt-pa|
|00000b70| 74 74 65 72 6e 20 74 65 | 6c 6e 65 74 2d 70 72 6f |ttern te|lnet-pro|
|00000b80| 6d 70 74 2d 70 61 74 74 | 65 72 6e 20 22 5c 6e 22 |mpt-patt|ern "\n"|
|00000b90| 20 74 65 6c 6e 65 74 2d | 6e 65 77 2d 6c 69 6e 65 | telnet-|new-line|
|00000ba0| 20 22 74 6f 70 73 2d 32 | 30 22 20 22 5b 40 3e 5d | "tops-2|0" "[@>]|
|00000bb0| 20 2a 22 20 22 69 74 73 | 22 20 22 5e 5b 5e 2a 3e | *" "its|" "^[^*>|
|00000bc0| 5c 6e 5d 2a 5b 2a 3e 5d | 20 2a 22 20 22 65 78 70 |\n]*[*>]| *" "exp|
|00000bd0| 6c 6f 72 65 72 22 20 3f | 5c 6e 20 74 65 6c 6e 65 |lorer" ?|\n telne|
|00000be0| 74 2d 72 65 70 6c 61 63 | 65 2d 63 2d 67 20 63 6f |t-replac|e-c-g co|
|00000bf0| 6d 69 6e 74 2d 70 72 6f | 6d 70 74 2d 72 65 67 65 |mint-pro|mpt-rege|
|00000c00| 78 70 5d 20 33 20 28 23 | 24 20 2e 20 32 36 39 30 |xp] 3 (#|$ . 2690|
|00000c10| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |)]).(def|alias 't|
|00000c20| 65 6c 6e 65 74 2d 69 6e | 69 74 69 61 6c 2d 66 69 |elnet-in|itial-fi|
|00000c30| 6c 74 65 72 20 23 5b 28 | 70 72 6f 63 20 73 74 72 |lter #[(|proc str|
|00000c40| 69 6e 67 29 20 22 c0 19 | c2 c3 0c 5c 22 ab 8c c5 |ing) "..|...\"...|
|00000c50| c6 0e 07 21 21 88 c8 c9 | 21 aa d2 c2 ca 0c 5c 22 |...!!...|!.....\"|
|00000c60| ab 9b cb 0e 07 0c 5c 22 | 88 cc cd c0 5c 22 1e 0e |......\"|....\"..|
|00000c70| cf 16 10 d1 0e 07 0e 0e | 0e 12 50 5c 22 29 aa b1 |........|..P\")..|
|00000c80| d3 0c 21 88 cb 0e 07 0c | 5c 22 88 0e 10 0e 14 56 |..!.....|\".....V|
|00000c90| ab 9a d5 0e 07 21 89 1e | 16 d7 61 ab 87 d8 d7 21 |.....!..|..a....!|
|00000ca0| cb 4c aa 85 d9 0e 07 cb | 5c 22 29 aa 86 0e 10 54 |.L......|\")....T|
|00000cb0| 89 16 10 29 87 22 20 5b | 74 20 63 61 73 65 2d 66 |...)." [|t case-f|
|00000cc0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 73 74 72 69 6e |old-sear|ch strin|
|00000cd0| 67 2d 6d 61 74 63 68 20 | 22 4e 6f 20 73 75 63 68 |g-match |"No such|
|00000ce0| 20 68 6f 73 74 22 20 73 | 74 72 69 6e 67 20 6b 69 | host" s|tring ki|
|00000cf0| 6c 6c 2d 62 75 66 66 65 | 72 20 70 72 6f 63 65 73 |ll-buffe|r proces|
|00000d00| 73 2d 62 75 66 66 65 72 | 20 70 72 6f 63 20 65 72 |s-buffer| proc er|
|00000d10| 72 6f 72 20 22 4e 6f 20 | 73 75 63 68 20 68 6f 73 |ror "No |such hos|
|00000d20| 74 2e 22 20 22 70 61 73 | 73 77 22 20 74 65 6c 6e |t." "pas|sw" teln|
|00000d30| 65 74 2d 66 69 6c 74 65 | 72 20 63 6f 6d 69 6e 74 |et-filte|r comint|
|00000d40| 2d 72 65 61 64 2d 6e 6f | 65 63 68 6f 20 22 50 61 |-read-no|echo "Pa|
|00000d50| 73 73 77 6f 72 64 3a 20 | 22 20 70 61 73 73 77 6f |ssword: |" passwo|
|00000d60| 72 64 20 30 20 74 65 6c | 6e 65 74 2d 63 6f 75 6e |rd 0 tel|net-coun|
|00000d70| 74 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |t proces|s-send-s|
|00000d80| 74 72 69 6e 67 20 74 65 | 6c 6e 65 74 2d 6e 65 77 |tring te|lnet-new|
|00000d90| 2d 6c 69 6e 65 20 74 65 | 6c 6e 65 74 2d 63 68 65 |-line te|lnet-che|
|00000da0| 63 6b 2d 73 6f 66 74 77 | 61 72 65 2d 74 79 70 65 |ck-softw|are-type|
|00000db0| 2d 69 6e 69 74 69 61 6c | 69 7a 65 20 74 65 6c 6e |-initial|ize teln|
|00000dc0| 65 74 2d 6d 61 78 69 6d | 75 6d 2d 63 6f 75 6e 74 |et-maxim|um-count|
|00000dd0| 20 70 72 6f 63 65 73 73 | 2d 66 69 6c 74 65 72 20 | process|-filter |
|00000de0| 6f 6c 64 2d 66 69 6c 74 | 65 72 20 73 68 65 6c 6c |old-filt|er shell|
|00000df0| 2d 66 6f 6e 74 2d 70 72 | 6f 63 65 73 73 2d 66 69 |-font-pr|ocess-fi|
|00000e00| 6c 74 65 72 20 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |lter mak|e-local-|
|00000e10| 76 61 72 69 61 62 6c 65 | 20 73 65 74 2d 70 72 6f |variable| set-pro|
|00000e20| 63 65 73 73 2d 66 69 6c | 74 65 72 5d 20 35 5d 29 |cess-fil|ter] 5])|
|00000e30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 65 6c 6e |.(defali|as 'teln|
|00000e40| 65 74 2d 73 69 6d 70 6c | 65 2d 73 65 6e 64 20 23 |et-simpl|e-send #|
|00000e50| 5b 28 70 72 6f 63 20 73 | 74 72 69 6e 67 29 20 22 |[(proc s|tring) "|
|00000e60| c0 09 5c 6e 5c 22 88 c0 | 09 0b 5c 22 87 22 20 5b |..\n\"..|..\"." [|
|00000e70| 63 6f 6d 69 6e 74 2d 73 | 65 6e 64 2d 73 74 72 69 |comint-s|end-stri|
|00000e80| 6e 67 20 70 72 6f 63 20 | 73 74 72 69 6e 67 20 74 |ng proc |string t|
|00000e90| 65 6c 6e 65 74 2d 6e 65 | 77 2d 6c 69 6e 65 5d 20 |elnet-ne|w-line] |
|00000ea0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |3]).(def|alias 't|
|00000eb0| 65 6c 6e 65 74 2d 66 69 | 6c 74 65 72 20 23 5b 28 |elnet-fi|lter #[(|
|00000ec0| 70 72 6f 63 20 73 74 72 | 69 6e 67 29 20 22 8a c0 |proc str|ing) "..|
|00000ed0| 09 21 71 88 c2 20 1b c4 | 8e c5 c6 09 21 21 1e 07 |.!q.. ..|....!!..|
|00000ee0| 60 0e 07 5a 1e 08 0e 09 | ad 84 c5 0e 09 21 1e 5c |`..Z....|.....!.\|
|00000ef0| 6e cb 70 21 89 1e 0c ad | 84 cd 0e 0c 21 1e 0e 0e |n.p!....|....!...|
|00000f00| 07 62 88 cf 0e 10 21 88 | c6 09 21 60 d1 93 88 0e |.b....!.|..!`....|
|00000f10| 0e ab 88 d2 0e 0c 0e 0e | d3 23 88 0e 5c 6e ab 87 |........|.#..\n..|
|00000f20| 0e 09 0e 5c 6e d1 93 88 | d4 0e 07 78 88 60 0e 07 |...\n...|...x.`..|
|00000f30| 56 ab 87 60 53 60 7c 88 | aa 6e c6 09 21 62 88 0e |V..`S`|.|.n..!b..|
|00000f40| 15 ab 8a d6 0e 07 60 d7 | 0e 15 d3 25 88 0e 08 d8 |......`.|...%....|
|00000f50| 56 ad 87 c6 09 21 0e 08 | 5c 5c 62 2e 08 87 22 20 |V....!..|\\b..." |
|00000f60| 5b 70 72 6f 63 65 73 73 | 2d 62 75 66 66 65 72 20 |[process|-buffer |
|00000f70| 70 72 6f 63 20 6d 61 74 | 63 68 2d 64 61 74 61 20 |proc mat|ch-data |
|00000f80| 6d 61 74 63 68 2d 64 61 | 74 61 20 28 28 73 74 6f |match-da|ta ((sto|
|00000f90| 72 65 2d 6d 61 74 63 68 | 2d 64 61 74 61 20 6d 61 |re-match|-data ma|
|00000fa0| 74 63 68 2d 64 61 74 61 | 29 29 20 6d 61 72 6b 65 |tch-data|)) marke|
|00000fb0| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 70 72 6f 63 65 |r-positi|on proce|
|00000fc0| 73 73 2d 6d 61 72 6b 20 | 6c 61 73 74 2d 69 6e 73 |ss-mark |last-ins|
|00000fd0| 65 72 74 69 6f 6e 20 64 | 65 6c 74 61 20 63 6f 6d |ertion d|elta com|
|00000fe0| 69 6e 74 2d 6c 61 73 74 | 2d 69 6e 70 75 74 2d 65 |int-last|-input-e|
|00000ff0| 6e 64 20 69 65 20 67 65 | 74 2d 62 75 66 66 65 72 |nd ie ge|t-buffer|
|00001000| 2d 77 69 6e 64 6f 77 20 | 77 20 77 69 6e 64 6f 77 |-window |w window|
|00001010| 2d 73 74 61 72 74 20 77 | 73 20 69 6e 73 65 72 74 |-start w|s insert|
|00001020| 2d 62 65 66 6f 72 65 2d | 6d 61 72 6b 65 72 73 20 |-before-|markers |
|00001030| 73 74 72 69 6e 67 20 6e | 69 6c 20 73 65 74 2d 77 |string n|il set-w|
|00001040| 69 6e 64 6f 77 2d 73 74 | 61 72 74 20 74 20 22 5e |indow-st|art t "^|
|00001050| 0d 22 20 74 65 6c 6e 65 | 74 2d 72 65 70 6c 61 63 |." telne|t-replac|
|00001060| 65 2d 63 2d 67 20 73 75 | 62 73 74 2d 63 68 61 72 |e-c-g su|bst-char|
|00001070| 2d 69 6e 2d 72 65 67 69 | 6f 6e 20 3f 5c 5e 47 20 |-in-regi|on ?\^G |
|00001080| 30 5d 20 37 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |0] 7]).(|defalias|
|00001090| 20 27 74 65 6c 6e 65 74 | 2d 73 65 6e 64 2d 69 6e | 'telnet|-send-in|
|000010a0| 70 75 74 20 23 5b 6e 69 | 6c 20 22 c0 70 21 c1 89 |put #[ni|l ".p!..|
|000010b0| 1a 1b 1c 0d ab 98 60 c6 | 0c 21 59 ab 91 8a 0e 07 |......`.|.!Y.....|
|000010c0| ab 83 c1 7f 88 c8 c6 0c | 21 21 13 60 12 29 c9 20 |........|!!.`.). |
|000010d0| 0b ab 85 0b 5c 6e 54 7c | 88 2b 87 22 20 5b 67 65 |....\nT||.+." [ge|
|000010e0| 74 2d 62 75 66 66 65 72 | 2d 70 72 6f 63 65 73 73 |t-buffer|-process|
|000010f0| 20 6e 69 6c 20 70 32 20 | 70 31 20 70 72 6f 63 20 | nil p2 |p1 proc |
|00001100| 74 65 6c 6e 65 74 2d 72 | 65 6d 6f 74 65 2d 65 63 |telnet-r|emote-ec|
|00001110| 68 6f 65 73 20 70 72 6f | 63 65 73 73 2d 6d 61 72 |hoes pro|cess-mar|
|00001120| 6b 20 63 6f 6d 69 6e 74 | 2d 65 6f 6c 2d 6f 6e 2d |k comint|-eol-on-|
|00001130| 73 65 6e 64 20 6d 61 72 | 6b 65 72 2d 70 6f 73 69 |send mar|ker-posi|
|00001140| 74 69 6f 6e 20 63 6f 6d | 69 6e 74 2d 73 65 6e 64 |tion com|int-send|
|00001150| 2d 69 6e 70 75 74 5d 20 | 33 20 6e 69 6c 20 6e 69 |-input] |3 nil ni|
|00001160| 6c 5d 29 0a 23 40 32 37 | 38 20 4f 70 65 6e 20 61 |l]).#@27|8 Open a|
|00001170| 20 6e 65 74 77 6f 72 6b | 20 6c 6f 67 69 6e 20 63 | network| login c|
|00001180| 6f 6e 6e 65 63 74 69 6f | 6e 20 74 6f 20 68 6f 73 |onnectio|n to hos|
|00001190| 74 20 6e 61 6d 65 64 20 | 48 4f 53 54 20 28 61 20 |t named |HOST (a |
|000011a0| 73 74 72 69 6e 67 29 2e | 0a 57 69 74 68 20 61 20 |string).|.With a |
|000011b0| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 2c |prefix a|rgument,|
|000011c0| 20 70 72 6f 6d 70 74 73 | 20 66 6f 72 20 74 68 65 | prompts| for the|
|000011d0| 20 70 6f 72 74 20 6e 61 | 6d 65 20 6f 72 20 6e 75 | port na|me or nu|
|000011e0| 6d 62 65 72 20 61 73 20 | 77 65 6c 6c 2e 0a 43 6f |mber as |well..Co|
|000011f0| 6d 6d 75 6e 69 63 61 74 | 69 6f 6e 20 77 69 74 68 |mmunicat|ion with|
|00001200| 20 48 4f 53 54 20 69 73 | 20 72 65 63 6f 72 64 65 | HOST is| recorde|
|00001210| 64 20 69 6e 20 61 20 62 | 75 66 66 65 72 20 60 2a |d in a b|uffer `*|
|00001220| 48 4f 53 54 2d 74 65 6c | 6e 65 74 2a 27 2e 0a 4e |HOST-tel|net*'..N|
|00001230| 6f 72 6d 61 6c 6c 79 20 | 69 6e 70 75 74 20 69 73 |ormally |input is|
|00001240| 20 65 64 69 74 65 64 20 | 69 6e 20 45 6d 61 63 73 | edited |in Emacs|
|00001250| 20 61 6e 64 20 73 65 6e | 74 20 61 20 6c 69 6e 65 | and sen|t a line|
|00001260| 20 61 74 20 61 20 74 69 | 6d 65 2e 0a 53 65 65 20 | at a ti|me..See |
|00001270| 61 6c 73 6f 20 60 5c 5b | 72 73 68 5d 27 2e 1f 0a |also `\[|rsh]'...|
|00001280| 28 64 65 66 61 6c 69 61 | 73 20 27 74 65 6c 6e 65 |(defalia|s 'telne|
|00001290| 74 20 23 5b 28 68 6f 73 | 74 20 26 6f 70 74 69 6f |t #[(hos|t &optio|
|000012a0| 6e 61 6c 20 70 6f 72 74 | 29 20 22 c0 19 c2 c3 0c |nal port|) ".....|
|000012b0| c5 c6 23 0e 07 ab 86 c8 | 0e 07 50 aa 81 c9 51 1e |..#.....|..P...Q.|
|000012c0| 5c 6e cb cc 0e 5c 6e cc | 51 21 1e 0d c6 1e 0e 0e |\n...\n.|Q!......|
|000012d0| 0d ab 8c cf 0e 0d 21 ab | 86 d0 0e 0d 21 aa b9 d0 |......!.|....!...|
|000012e0| d1 0e 5c 6e 0e 12 5c 22 | 21 88 cf 70 21 16 0e d3 |..\n..\"|!..p!...|
|000012f0| 0e 0e d4 5c 22 88 d5 d6 | 21 88 d7 0e 0e 21 88 d8 |...\"...|!....!..|
|00001300| 20 88 d9 0e 0e da 0c 0e | 07 ab 86 db 0e 07 50 aa | .......|......P.|
|00001310| 81 c9 dc 52 5c 22 88 dd | 16 1e df 20 2c 87 22 20 |...R\"..|... ,." |
|00001320| 5b 28 3f 5c 20 20 3f 5c | 74 29 20 63 6f 6d 69 6e |[(?\  ?\|t) comin|
|00001330| 74 2d 64 65 6c 69 6d 69 | 74 65 72 2d 61 72 67 75 |t-delimi|ter-argu|
|00001340| 6d 65 6e 74 2d 6c 69 73 | 74 20 22 74 65 6c 6e 65 |ment-lis|t "telne|
|00001350| 74 2d 22 20 63 6f 6d 69 | 6e 74 2d 61 72 67 75 6d |t-" comi|nt-argum|
|00001360| 65 6e 74 73 20 68 6f 73 | 74 20 30 20 6e 69 6c 20 |ents hos|t 0 nil |
|00001370| 70 6f 72 74 20 22 2f 22 | 20 22 22 20 6e 61 6d 65 |port "/"| "" name|
|00001380| 20 67 65 74 2d 62 75 66 | 66 65 72 20 22 2a 22 20 | get-buf|fer "*" |
|00001390| 62 75 66 66 65 72 20 70 | 72 6f 63 65 73 73 20 67 |buffer p|rocess g|
|000013a0| 65 74 2d 62 75 66 66 65 | 72 2d 70 72 6f 63 65 73 |et-buffe|r-proces|
|000013b0| 73 20 70 6f 70 2d 74 6f | 2d 62 75 66 66 65 72 20 |s pop-to|-buffer |
|000013c0| 6d 61 6b 65 2d 63 6f 6d | 69 6e 74 20 74 65 6c 6e |make-com|int teln|
|000013d0| 65 74 2d 70 72 6f 67 72 | 61 6d 20 73 65 74 2d 70 |et-progr|am set-p|
|000013e0| 72 6f 63 65 73 73 2d 66 | 69 6c 74 65 72 20 74 65 |rocess-f|ilter te|
|000013f0| 6c 6e 65 74 2d 69 6e 69 | 74 69 61 6c 2d 66 69 6c |lnet-ini|tial-fil|
|00001400| 74 65 72 20 74 65 6c 6e | 65 74 2d 63 68 65 63 6b |ter teln|et-check|
|00001410| 2d 73 6f 66 74 77 61 72 | 65 2d 74 79 70 65 2d 69 |-softwar|e-type-i|
|00001420| 6e 69 74 69 61 6c 69 7a | 65 20 22 75 6e 69 78 22 |nitializ|e "unix"|
|00001430| 20 61 63 63 65 70 74 2d | 70 72 6f 63 65 73 73 2d | accept-|process-|
|00001440| 6f 75 74 70 75 74 20 65 | 72 61 73 65 2d 62 75 66 |output e|rase-buf|
|00001450| 66 65 72 20 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |fer proc|ess-send|
|00001460| 2d 73 74 72 69 6e 67 20 | 22 6f 70 65 6e 20 22 20 |-string |"open " |
|00001470| 22 20 22 20 22 5c 6e 22 | 20 74 65 6c 6e 65 74 2d |" " "\n"| telnet-|
|00001480| 73 69 6d 70 6c 65 2d 73 | 65 6e 64 20 63 6f 6d 69 |simple-s|end comi|
|00001490| 6e 74 2d 69 6e 70 75 74 | 2d 73 65 6e 64 65 72 20 |nt-input|-sender |
|000014a0| 74 65 6c 6e 65 74 2d 6d | 6f 64 65 5d 20 36 20 28 |telnet-m|ode] 6 (|
|000014b0| 23 24 20 2e 20 34 34 35 | 38 29 20 28 6c 69 73 74 |#$ . 445|8) (list|
|000014c0| 20 28 72 65 61 64 2d 73 | 74 72 69 6e 67 20 22 4f | (read-s|tring "O|
|000014d0| 70 65 6e 20 74 65 6c 6e | 65 74 20 63 6f 6e 6e 65 |pen teln|et conne|
|000014e0| 63 74 69 6f 6e 20 74 6f | 20 68 6f 73 74 3a 20 22 |ction to| host: "|
|000014f0| 29 20 28 69 66 20 63 75 | 72 72 65 6e 74 2d 70 72 |) (if cu|rrent-pr|
|00001500| 65 66 69 78 2d 61 72 67 | 20 28 72 65 61 64 2d 73 |efix-arg| (read-s|
|00001510| 74 72 69 6e 67 20 22 50 | 6f 72 74 20 6e 61 6d 65 |tring "P|ort name|
|00001520| 20 6f 72 20 6e 75 6d 62 | 65 72 3a 20 22 29 20 6e | or numb|er: ") n|
|00001530| 69 6c 29 29 5d 29 0a 23 | 40 33 32 32 20 54 68 69 |il))]).#|@322 Thi|
|00001540| 73 20 6d 6f 64 65 20 69 | 73 20 66 6f 72 20 75 73 |s mode i|s for us|
|00001550| 69 6e 67 20 74 65 6c 6e | 65 74 20 28 6f 72 20 72 |ing teln|et (or r|
|00001560| 73 68 29 20 66 72 6f 6d | 20 61 20 62 75 66 66 65 |sh) from| a buffe|
|00001570| 72 20 74 6f 20 61 6e 6f | 74 68 65 72 20 68 6f 73 |r to ano|ther hos|
|00001580| 74 2e 0a 49 74 20 68 61 | 73 20 6d 6f 73 74 20 6f |t..It ha|s most o|
|00001590| 66 20 74 68 65 20 73 61 | 6d 65 20 63 6f 6d 6d 61 |f the sa|me comma|
|000015a0| 6e 64 73 20 61 73 20 63 | 6f 6d 69 6e 74 2d 6d 6f |nds as c|omint-mo|
|000015b0| 64 65 2e 0a 54 68 65 72 | 65 20 69 73 20 61 20 76 |de..Ther|e is a v|
|000015c0| 61 72 69 61 62 6c 65 20 | 60 60 74 65 6c 6e 65 74 |ariable |``telnet|
|000015d0| 2d 69 6e 74 65 72 72 75 | 70 74 2d 73 74 72 69 6e |-interru|pt-strin|
|000015e0| 67 27 27 20 77 68 69 63 | 68 20 69 73 20 74 68 65 |g'' whic|h is the|
|000015f0| 20 63 68 61 72 61 63 74 | 65 72 0a 73 65 6e 74 20 | charact|er.sent |
|00001600| 74 6f 20 74 72 79 20 74 | 6f 20 73 74 6f 70 20 65 |to try t|o stop e|
|00001610| 78 65 63 75 74 69 6f 6e | 20 6f 66 20 61 20 6a 6f |xecution| of a jo|
|00001620| 62 20 6f 6e 20 74 68 65 | 20 72 65 6d 6f 74 65 20 |b on the| remote |
|00001630| 68 6f 73 74 2e 0a 44 61 | 74 61 20 69 73 20 73 65 |host..Da|ta is se|
|00001640| 6e 74 20 74 6f 20 74 68 | 65 20 72 65 6d 6f 74 65 |nt to th|e remote|
|00001650| 20 68 6f 73 74 20 77 68 | 65 6e 20 52 45 54 20 69 | host wh|en RET i|
|00001660| 73 20 74 79 70 65 64 2e | 0a 0a 5c 7b 74 65 6c 6e |s typed.|..\{teln|
|00001670| 65 74 2d 6d 6f 64 65 2d | 6d 61 70 7d 0a 1f 0a 28 |et-mode-|map}...(|
|00001680| 64 65 66 61 6c 69 61 73 | 20 27 74 65 6c 6e 65 74 |defalias| 'telnet|
|00001690| 2d 6d 6f 64 65 20 23 5b | 6e 69 6c 20 22 c0 20 88 |-mode #[|nil ". .|
|000016a0| c1 12 c3 14 0d 16 06 c7 | 0e 08 21 88 c9 ca 21 0e |........|..!...!.|
|000016b0| 0b 4c 88 cc cd 21 87 22 | 20 5b 63 6f 6d 69 6e 74 |.L...!."| [comint|
|000016c0| 2d 6d 6f 64 65 20 74 65 | 6c 6e 65 74 2d 6d 6f 64 |-mode te|lnet-mod|
|000016d0| 65 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 22 54 65 |e major-|mode "Te|
|000016e0| 6c 6e 65 74 22 20 6d 6f | 64 65 2d 6e 61 6d 65 20 |lnet" mo|de-name |
|000016f0| 74 65 6c 6e 65 74 2d 70 | 72 6f 6d 70 74 2d 70 61 |telnet-p|rompt-pa|
|00001700| 74 74 65 72 6e 20 63 6f | 6d 69 6e 74 2d 70 72 6f |ttern co|mint-pro|
|00001710| 6d 70 74 2d 72 65 67 65 | 78 70 20 75 73 65 2d 6c |mpt-rege|xp use-l|
|00001720| 6f 63 61 6c 2d 6d 61 70 | 20 74 65 6c 6e 65 74 2d |ocal-map| telnet-|
|00001730| 6d 6f 64 65 2d 6d 61 70 | 20 6d 61 6b 65 2d 6c 6f |mode-map| make-lo|
|00001740| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 74 65 6c |cal-vari|able tel|
|00001750| 6e 65 74 2d 63 6f 75 6e | 74 20 74 65 6c 6e 65 74 |net-coun|t telnet|
|00001760| 2d 69 6e 69 74 69 61 6c | 2d 63 6f 75 6e 74 20 72 |-initial|-count r|
|00001770| 75 6e 2d 68 6f 6f 6b 73 | 20 74 65 6c 6e 65 74 2d |un-hooks| telnet-|
|00001780| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 32 20 28 23 24 |mode-hoo|k] 2 (#$|
|00001790| 20 2e 20 35 34 33 37 29 | 20 6e 69 6c 5d 29 0a 23 | . 5437)| nil]).#|
|000017a0| 40 32 30 39 20 4f 70 65 | 6e 20 61 20 6e 65 74 77 |@209 Ope|n a netw|
|000017b0| 6f 72 6b 20 6c 6f 67 69 | 6e 20 63 6f 6e 6e 65 63 |ork logi|n connec|
|000017c0| 74 69 6f 6e 20 74 6f 20 | 68 6f 73 74 20 6e 61 6d |tion to |host nam|
|000017d0| 65 64 20 48 4f 53 54 20 | 28 61 20 73 74 72 69 6e |ed HOST |(a strin|
|000017e0| 67 29 2e 0a 43 6f 6d 6d | 75 6e 69 63 61 74 69 6f |g)..Comm|unicatio|
|000017f0| 6e 20 77 69 74 68 20 48 | 4f 53 54 20 69 73 20 72 |n with H|OST is r|
|00001800| 65 63 6f 72 64 65 64 20 | 69 6e 20 61 20 62 75 66 |ecorded |in a buf|
|00001810| 66 65 72 20 60 2a 72 73 | 68 2d 48 4f 53 54 2a 27 |fer `*rs|h-HOST*'|
|00001820| 2e 0a 4e 6f 72 6d 61 6c | 6c 79 20 69 6e 70 75 74 |..Normal|ly input|
|00001830| 20 69 73 20 65 64 69 74 | 65 64 20 69 6e 20 45 6d | is edit|ed in Em|
|00001840| 61 63 73 20 61 6e 64 20 | 73 65 6e 74 20 61 20 6c |acs and |sent a l|
|00001850| 69 6e 65 20 61 74 20 61 | 20 74 69 6d 65 2e 0a 53 |ine at a| time..S|
|00001860| 65 65 20 61 6c 73 6f 20 | 60 5c 5b 74 65 6c 6e 65 |ee also |`\[telne|
|00001870| 74 5d 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |t]'...(d|efalias |
|00001880| 27 72 73 68 20 23 5b 28 | 68 6f 73 74 29 20 22 c0 |'rsh #[(|host) ".|
|00001890| c1 21 88 c2 0b 50 1c c5 | c6 0c 0e 07 c8 0b 24 21 |.!...P..|......$!|
|000018a0| 88 c9 ca 21 0e 0b 4c 88 | cc cd 21 88 ce cf 0c 21 |...!..L.|..!....!|
|000018b0| 0e 10 ab 83 d1 aa 81 d2 | 5c 22 88 d3 20 29 87 22 |........|\".. )."|
|000018c0| 20 5b 72 65 71 75 69 72 | 65 20 73 68 65 6c 6c 20 | [requir|e shell |
|000018d0| 22 72 73 68 2d 22 20 68 | 6f 73 74 20 6e 61 6d 65 |"rsh-" h|ost name|
|000018e0| 20 70 6f 70 2d 74 6f 2d | 62 75 66 66 65 72 20 6d | pop-to-|buffer m|
|000018f0| 61 6b 65 2d 63 6f 6d 69 | 6e 74 20 72 65 6d 6f 74 |ake-comi|nt remot|
|00001900| 65 2d 73 68 65 6c 6c 2d | 70 72 6f 67 72 61 6d 20 |e-shell-|program |
|00001910| 6e 69 6c 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |nil make|-local-v|
|00001920| 61 72 69 61 62 6c 65 20 | 74 65 6c 6e 65 74 2d 63 |ariable |telnet-c|
|00001930| 6f 75 6e 74 20 74 65 6c | 6e 65 74 2d 69 6e 69 74 |ount tel|net-init|
|00001940| 69 61 6c 2d 63 6f 75 6e | 74 20 74 65 6c 6e 65 74 |ial-coun|t telnet|
|00001950| 2d 63 68 65 63 6b 2d 73 | 6f 66 74 77 61 72 65 2d |-check-s|oftware-|
|00001960| 74 79 70 65 2d 69 6e 69 | 74 69 61 6c 69 7a 65 20 |type-ini|tialize |
|00001970| 22 75 6e 69 78 22 20 73 | 65 74 2d 70 72 6f 63 65 |"unix" s|et-proce|
|00001980| 73 73 2d 66 69 6c 74 65 | 72 20 67 65 74 2d 70 72 |ss-filte|r get-pr|
|00001990| 6f 63 65 73 73 20 72 73 | 68 2d 65 61 74 2d 70 61 |ocess rs|h-eat-pa|
|000019a0| 73 73 77 6f 72 64 2d 73 | 74 72 69 6e 67 20 74 65 |ssword-s|tring te|
|000019b0| 6c 6e 65 74 2d 69 6e 69 | 74 69 61 6c 2d 66 69 6c |lnet-ini|tial-fil|
|000019c0| 74 65 72 20 74 65 6c 6e | 65 74 2d 66 69 6c 74 65 |ter teln|et-filte|
|000019d0| 72 20 74 65 6c 6e 65 74 | 2d 6d 6f 64 65 5d 20 36 |r telnet|-mode] 6|
|000019e0| 20 28 23 24 20 2e 20 36 | 30 35 33 29 20 22 73 4f | (#$ . 6|053) "sO|
|000019f0| 70 65 6e 20 72 73 68 20 | 63 6f 6e 6e 65 63 74 69 |pen rsh |connecti|
|00001a00| 6f 6e 20 74 6f 20 68 6f | 73 74 3a 20 22 5d 29 0a |on to ho|st: "]).|
|00001a10| 28 70 72 6f 76 69 64 65 | 20 27 74 65 6c 6e 65 74 |(provide| 'telnet|
|00001a20| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+